home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
qktmbps.zip
/
QKTMBPS.DOC
next >
Wrap
Text File
|
1990-08-16
|
3KB
|
106 lines
QuickBBS Time/BPS Control
v1.0
Christopher Hall
PC Network
6067 McKinney, NE
Albuquerque, NM 87109
(505) 821-5341
CompuServe 72150,752
Fido 1:301/2
Introduction:
I found myself needing a Utility that would allow me to monitor what
External Activities would be allowed with a Type 15 Exit from QuickBBS.
There was no suitable way to limit certain functions based on Time of
Day and Baud Rate.
For Example: Running Doors, Uploading, Downloading, etc.
(Transfers in particular since I use FileDoor!)
Thus, this program was born!
I am including the source code - just for those of you who might wish to
expand on its functionality - it is not documented at all - but that's
usually how I work! Also, you will need Turbo Power's EXCELLENT Object
Pro Libray in order to compile as is.
What Does it Do?:
The only thing this program does is Exit with one of two ErrorLevels!
It is designed to be run in your BBS Batch file BEFORE any other
possible program. If certain conditions are met (Time of Day and Baud
Rate), then it will Exit with ErrorLevel 0 - otherwise, with ErrorLevel 1.
The Sysop must first design a QkTmBPS.Evt file (see Sample File). This
file defines certain TAG NAMES. It is set up similar to other Event
Files. Within each TAG NAME you may configure certain ALLOWABLE Baud
Rates and certain Time Frames. You may have up to 10 TAG NAMES and up
to 10 Conditions within each TAG NAME. (Am I confusing you yet?)
Once defined - the QkTmBPS.Evt file will be compiled into a QkTmBPS.Prm
file - just to speed up the operation. This is done automatically the
first time you run the program or whenever you change the QkTmBPS.Evt
file.
When executed - the program accepts a TAG NAME as the only allowable
command line parameter. It then determines the Current Time of Day,
Reads the Dorinfo1.Def file to determine the Current Baud Rate, reads
the QkTmBPS.Prm file based on the Current TAG Name and Exits accordingly.
Example:
QuickBBS -B%1 -E0
goto After_Quick
.
.
:After_Quick
if ErrorLevel 30 GoTo aDoor
if ErrorLevel 20 GoTo Upload
if ErrorLevel 10 GoTo Download
.
.
:aDoor
QkTmBPS DOOR
if ErrorLevel 1 GoTo ReStart_Quick
SomeDoor.Exe
goto ReStart_Quick
.
:UpLoad
QkTmBPS UpLoad
if ErrorLevel 1 GoTo ReStart_Quick
FileDoor -dU
goto ReStart_Quick
.
:DownLoad
QkTmBPS DownLoad
if ErrorLevel 1 GoTo ReStart_Quick
FileDoor -dD
.
ETC................................
Of course, you could also echo something to the User so that he'd know
what was happening:
QkTmBPS DOOR
if ErrorLevel 1 goto NODOOR
SomeDoor.Exe
goto ReStart_Quick
:NODOOR
echo Sorry, Doors are not allowed at this time! >COM1
goto ReStart_Quick
------------------------------------------------------------------------
That's about it! If you're a little more interested - just check out
the source code.
Christopher Hall